home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
s-gikan2.maizuru-ct.ac.jp
/
s-gikan2.maizuru-ct.ac.jp.zip
/
s-gikan2.maizuru-ct.ac.jp
/
pub
/
old
/
ncvc350_install.exe
/
{app}
/
scripts
/
by_round2.pl
< prev
next >
Wrap
Perl Script
|
2007-10-22
|
741b
|
27 lines
#! /usr/bin/perl
# NCâfü[â^Æåé╠ì└òWÆlé≡ 1/1000(żÉöæµéRê╩) ÄlÄ╠î▄ôⁿé╡üA #
# 1/100(żÉöæµéQê╩) é╔ò╧è╖é╖éΘâXâNâèâvâg #
# X,Y,Z,I,J,K,R,C,U,V,Wé╠îπé╠ÉöÄÜé¬æ╬Å█é╞é╚éΘ #
# żÉöô_ò\ïLé╔é╠é▌æ╬ë₧üBÉ«Éöò\ïLé╔é═ûóæ╬ë₧(Ägéªé▄é╣é±) #
$pre_file= $ARGV[0];
$out_file= $ARGV[1];
open(IN,$pre_file);
open(OUT,">$out_file");
while(<IN>){
if(!/^N?[0-9\s]*[\(\%]/){
$new_line= "";
while(/([XYZIJKRCUVW])([\-\d\.]+)/){
($pre_line,$char,$num,$_)= ($`,$1,$2,$');
$round = (int($num*100 + ($num>0 ? 0.5 : -0.5))) / 100;
if ( $round !~ /\./ and $round != 0) {
$round = $round."\.";
}
$new_line= $new_line.$pre_line.$char.$round;
}
$_= $new_line.$_;
}
print OUT;
}